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CCCCCCCC OHH HH MM MM PPPPPPPP AAAAAA RRRRRRRR SSSSSSSS EEEEEEEEEE 
CCCCCCCC «OHH HH MM MM PPPPPPPP AAAAAA RRRRRRRR SSSSSSSS EEEEEEEEEE 
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cc H HH MM MM MM «OPP PP AA AA RR RR SS EE 

cc HHHHHHHHHH =MM MM PPPPPPPP AA AA RRRRRRRR SSSSSS EEEEEEEE 
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Add the setti ng of ,Mieut vere gis 21-Sep-1981 
Add desel ne ite ep-198 
Add ssel verb. STS 54. 4-Sep-1981 
Add a return value for en= 198) a}. esotes. anttt $ ge-tct= -1981 

Revise direction setting for tad 

ve an error message on an invali ir . yt JBS 10-Mar-1982 
had NOOVERLAY symbol. JBS 04-Apr- 9 
Set a flag if control C actually aborts something. JBS 24-May-1982 
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EDTSCHMPARSE = change mode parse and execute 16-Sep-1984 VAX-11 Bliss-32 V e 1) 
14- =Sep- “19 3c i $2 DISKSVMSMASTER: ch 1 SRCTCHMPARSE. BLI; P79 (1) | 
: 1 1 ZTITLE "ED poems - change mode parse and execu | 
3 ¢ § MODULE EDTSCHMPARSE ( ! Ronee mode parse and execute 
; ? : ip ENT = *v04-000' ! File: CHMPARSE.BLI “Edit: JBS1023 | 
iF 2008 _— | 
: 4 0007 } lnuvenenenenearentenenennnenneerertrerrertertertenttentenenentnntnereneenntes 
Ps :* & 
; 9 $608 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ® | 
; 10 Bt 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
ge O11 J is ALL RIGHTS RESERVED. . 
4 ‘® ® | 
3 ig $O18 1 '® THIS SOFTWARE IS FURNISHED wer A LICENSE AND MAY BE USED AND gd * | 
a, | ' 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ee | 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * | 
: 16 8218 1 '* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
c’, - ae 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 18 Bote } it TRANSFERRED. * 
Py 4 % 
: 20 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
: 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ® 
: $$ Ooss : * CORPORATION. : 
: 24 0024 1 it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; 2 0026 1 !* * 
, «(Uae 0027 1 !* * 
: ss pose : ] PONELS EAR AR SET OSES RRO A SON OR ONIN IN RON TN ONT NOTIN TUR TROT I ONT TT ONaD | 
: §0 $030 1 
; 1 0031 1 !+4+¢ 
. ae O03 1! FACILITY: EDT -- The DEC Standard Editor 
> = 0033 1! 
: 34 0034 1 ! ABSTRACT: 
ce 0035 1! 
; $$ Oss } This module parses and executes a change mode command string. 
3 Hs si 4 : ; ENVIRONMENT: Runs at any access mode - AST reentrant 
: 40 9040 AUTHOR: Bob Kushlis, CREATION DATE: Unknown 
: 43 0048 1 i MODIFIED BY: 
; 6 0045 1! 
; 644 044 1 ! 1-001 = Original. DJS rset bs OF This module was created b 
s 65 045 1! mag hn Dm | the routine EDT Senn PAREXE from module CHANGE.BLI. 
; 646 0046 1 ! 1-002 - Regularize headers. JBS 03-Mar-1981 
; 47 0047 1! 0 Use new message codes. JBS 04-A Bit 
: 68 0048 1! 04 = Add the bell verb. STS 11-Aug-19 
: 3 004 : Add the date. verb. STS 31-Aug-1981 
; 31 
; 6 1: 
$ 2 , 3 
3 5 1! 
; 1! 
: 57 1! 
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EDTSCHMPARSE EDTSCHMPARSE = change mode parse and execute 16-Sep-1984 X-11 Bliss-32 V4.0-7 
v04-000 ° P 1a- se0-1984 13:08 ty TEEKSVMGMASTERSCEDT SACICHMPARSE BLIC;?” (1 


VA 

I 

chen ° alphabetic test. 8s 19- 1h 1982 
| 

| 

| 

| 


; 0028 1! 1-014 = 

; WW 0059 1! 1-015 - he xlate verb. sts 13-Aug-1 

; 60 Bare 1! 1- 1 - aad the CLSS verb. STS 26-Aug-198 

; «661 061 1! 1-3) = Change to using an “the keyworg. ordered table. STS 21-Sep-1982 
3 6¢ Goes : 1-018 - reve het tle ie t ng ke keywor shout iat. to reduce the program size 
; 664 pee 1! 1-019 - Al tow lower case commands. yes *O1-0¢ Oc gat? 

; 6 65 1 ! 1-020 = Check the feng th of th, 6 Supper STs “vs, 8 1982 

; 66 066 1 ! 1-021 = Add conditi onset for VT220 support. JBS_11-Feb-1983 

: 67 067 1! 1- § - Add conditional for wP suppers JBS 13-Feb-1983 

: 68 068 1 ! 1-025 = Correct a typo. JBS 22- 3 

: 69 494 1 !<- 

; 70 970 «+1 
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EDTSCHMPARSE DTSCHMPARSE = change mode parse and execute bese -1984 :06: VAX-11 Bliss-32_ V4.0-74 P 
Be Sealaras tent ° 3 ~360-1382 99:98:33 DT EKSVMEMASTERSCEDT SRCICHMPARSE BLI04 23 
: ie r } RSBTTL ‘Declarations’ | 
i th O73 1 | TABLE OF CONTENTS: | 
ae. 1 i 
; rf i REQUIRE "EDTSRC:TRAROUNAM'; 
: 79 1g 1 FORWARD ROUTINE 
: Bo 2} : EDTSSCHM_PAREXE; ! Parse and execute a change mode command string 
; Be 219 1! 
3 83 2 9 i INCLUDE FILES: 
>: 85 3 3 Be 
; 86 09 REQUIRE "EDTSRC:EDTREQ’; 
; 88 0659 LIBRARY "EDTSRC:SUPPOPTS'; 
> 90 0661 1! 
; 31 066 i MACROS: 
ee ee 
; 95 0666 ; EQUATED SYMBOLS: 
; 39 0668 1 
; | 98 0669 1 GLOBAL BIND 
; WW 0670 1 ROUTINE 
5 100 0671 EDTSS$CHM_PAREXE_NOOVERLAY_REF = EDTS$SCHM_PAREXE; ! Alt ref point 
: 108 0673 1! 
: +t beoe ' : OWN STORAGE: 
Bp ee tales 
; 107 0678 EXTERNAL REFERENCES: 
: 109 0680 1 ! In the routine 
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ERT SEIEPARSE EDTSCHMPARSE = change mode parse and execute 18-Sep-19 4 99:9 :35 VAX-11 Bliss-32 etsy Page 4 
Vv04- EDTSSCHM_PAREXE = Change mode parse and execut 14-Sep-1984 12:22:41 DISKSVMSMASTER:CEDT.SRCJCHMPARSE.BLI;1 (3) 
; 11) Oe 1 ! ZSBTTL ‘EDTSSCHM_PAREXE = change mode parse and execute’ 
3 11 6 ‘ 1 GLOBAL ROUTINE EDTSSCHM_PAREXE ( : pares mode parse and execute 
3 118 30 : ! EXECUTE ! 1 = execute 
D4 = 
s 43 6 1 
; 113 Sh 1 le4 
; V8 0688 1 ! FUNCTIONAL DESCRIPTION: 
: #119 0689 1! 
: : ° Beas : } This routine parses and executes a change mode command string. 
3 ! ¢ 924 | : FORMAL PARAMETERS: 
3 : ¢ Be8e : } EXECUTE - 1 if we should execute the command, 0 to parse only. 
3 158 0696 1 ! IMPLICIT INPUTS: 
3 is 0697 1! | 
: 128 0698 1! EDT$$G_DIR_MOD | 
; 194 0699 1! EDTSSA_CMD_END 
: 130 0700 1! EDTS$$G_EXI | 
; 131 0701 1! EDTSSA_CMD_BUF 
; 136 0702 1! EDTSS$G_DFLT_VERB 
.- os 0703 1! 
3: «(134 0704 1 ! IMPLICIT OUTPUTS: 
; «135 0705 1! 
; 136 0706 1! EDTS$G_DIR 
3; «137 0707 1! EDTS$A_ALT_BUF 
; «4138 0708 1! EDT$$G_TADJ 
: 4139 0709 1! EDT$$G_CC_DONE | 
: 140 0710 1! 
3; (141 0711 1 ! RETURNED VALUE: 
3 sp ar a. 
: 14 0715 1! 0 = Command failed or control C 
3 144 0714 1! 1 = Command succeeded 
3 145 0715 1! 2 - Journal file ended 
: 146 0716 1! 
3 «(147 0717 1 ! SIDE EFFECTS: 
; 148 0718 1! 
3; «149 0719 1! Many 
; 150 0720 1! | 
3; «151 0721 1 !-- 
; 136 B75¢ 1 
3; 5 0723 2 BEGIN 
3: 61546 Biss 
s 135 0725 EXTERNAL ROUTINE 
: 156 0726 EDTSSEXE_CHMCMD2, ! Execute the verbs which take an entity specification 
s Yer 0727 EDTSSEXE_CHMCMD1, ! Execute the verbs which do not take an entity specification 
: 138 0799 as it ie : NOVALUE, } Putest 8 messy e te the erminat wit : warning bell | 
3 a ! Check to see 3 as been type 
: 160 0730 EDTSSGET BUF : NOVALUE, ! Look for a buffer spec for the cut, paste, and append commands | 
: 161 731 EDTSSCHK_CNT, ' Look for a repeat/ent ity count 
3 16¢ 7 § EDTSSCHK_DIR ' Determine the current direction 
: 16 7 EDT$$SCAN_SEASTR : NOVALUE, ! Scan over the search otring when used as an entity 
: 164 oF 4 EDTSSFND_SUBSTR : NOVALUE ! Isolate the search and replace strings for the SUBSTITUTE command 
: 165 735 EDT$SSCAN_INSSTR : NOVALUE, ' Scan over the string of characters to be inserted 
: 166 0736 EDTSSKEY_QORD, ' Compare the command buffer contents to a table of keywords | 
3: 167 0737 EDTSSPARENT, ' Collect and execute a parenthesized string of commands 
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EDTSCHMPARSE EDTSCHMPARSE = change mode parse and execute Jo~se0- 138% 99:9 735 VAX-11 Bliss-32 V4.0-74 Page 5. 
v04 EDTSSCHM_PAREXE = Change mode parse and execut 14-Sep-1984 12:22:41 DISKSVMSMASTER:CEDT.SRCJCHMPARSE.BLI;1 (3) 
; 168 tae EDTSSCNV_UPC; ! Convert string to upper case 
: 170 740 EXTERNAL 
s if 74) EDTS$$G_SEA_LEN, ' Length of string 
$ 176 tok: EDTS$G_DIR, ! The current direction. 
; 7 74 EDT$$G_DIR_MOD, ! The directional mode. 
: 176 0744 EDTSSA_CMD_END, ! End of command pointer 
; iW 0745 EDTS$G_EXI, ! Change mode has been exited. 
: 176 preg EDTSSA_CMD_BUF, ! Command string pointer 
s WW? 074 EDTSSA_ALT_BUF : REF TBCB_BLOCK, ! Alternate buffer used for cut/paste. 
: 178 ores EDT$$G_TADJ, ! Count for tabs adjust. 
; 180 L 0750 Z1F SUPPORT_WPS 
; 38) 0751 xT 
; ise 8736 EDTSSG_DFLT_VERB, ! Default verb 
; 075 XFI 
> «184 0754 
; 19? L Br 32 air SUPPORT_VT220 
3 167 O789 EDTS$B_CHAR_INFO : BLOCKVECTOR (256, 1, BYTE], ! Information about characters 
1B Bag gan 
3 Hb 3760 EDTS$$G_CC_DONE; ! Set to 1 if control C actually aborted something 
; 136 O76 MESSAGES (CINVENT, INVSUBCOM, NUMVALILL)); 
; 076 
; 194 0764 LOCAL 
: 195 0765 REPT_COUNT, 
; 196 0766 EXPLICIT_REPEAT, 
: 197 0767 VERB 
; 198 0768 ENTITY, 
: 199 0769 ENTITY_COUNT 
3 200 0770 EXPLICTT_ENTITY_COUNT, 
3; aul 0771 OPERAND 
i 208 0778 DIR_SAME, 
; 20 077 TADJ_DIR, 
; 204 0774 SUCCEED; 
: 205 0775 
; 206 0776 '¢ , 
3 4 $4a4 Loop until we hit the end of the command buffer or a closing parenthesis. 
: 209 0779 
; 210 0780 WHILE CHSPTR_GTR (.EDTSSA_CMD_END, .EDTSSA_CMD_BUF) DO 
: 11 781 BEGIN 
3 \ ree 
3; al 7 IF EDTSSCHK_CC () 
: 14 07 THEN 
s 215 37 5 4 BEGIN 
: 216 7 4 EDTS$G_CC_DONE = 1; 
: 217 787 4 RETURN (0); 
: 218 788 3 
; 6219 789 
3 $9 '¢ 
3 a4 Skip blanks at beginning of command. 
: 79 
3 3 794 WHILE (CHSRCHAR (.EDTSSA_CMD_BUF) EQL 2C* ‘) DO 
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6 
HMPARSE = change mode parse and execute 16-5 -1984 00:06:35 Bliss-32 v4. 
CHM_PAREXE = Shenge node parse and execut 1 * 38 99:98:23 Seas 


VAX=11 
-Sep-1 DISKSVMSMAST 
EDTSSA_CMD_BUF = CHSPLUS (.EDTSSA_CMD_BUF, 1); 


14 
Look for closing paren. 


IF (CHSRCHAR (.EDTSSA_CMD_BUF) EQL %C')") THEN EXITLOOP; 


14 
' Set default direction, zero the alternate buffer and zero the 
direction change indicator. 


EDT$$G_DIR = .EDT$$G_DIR_MOD; 
EDT$SA-ALT_BUF = 0; 


4 
! Check for explicit direction specified. 


. DIR_SAME = EDTSSCHK_DIR (); 


Look for a count, and remember whether one was seen. 
! Give an error message and bail out if the count_is invalid. 
(An invalid count means a count greater than 32767.) 


REPT COUNT = 0; 
EXPLICIT_REPEAT = EDTSSCHK_CNT (REPT_COUNT); 


IF (.EXPLICIT_REPEAT EQL 2) 
THEN 


BEGIN 
EDTSSMSG_BELL (EDTS_NUMVALILL); 
RETURN (0); 


Look for the Loop. 
ee (.EDTSSA_CMD_BUF) EQL %C'(") 
BEGIN 
IF ((.REPT_COUNT EQL 0) AND (.EXPLICIT_REPEAT EQL 0)) THEN REPT_COUNT = 1; 
SUCCEED = EDTSSPARENT (.REPT_COUNT, EXECUTE); 
IF (.SUCCEED NEQ 1) THEN RETURN (.SUCCEED); 
evsee™ 
ne BEGIN 
; And now, find the verb of the command. 
EDTSSKEY_WORD (1, VERB); 
UPPORT_WPS 
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EDTSCHMPARSE EDTSCHMPARSE = change mode parse and execute 16-Sep-1984 00:06:3 VAX-11 Bliss-32_ V4.0-74 Page 7. 

04 +000 EDISSCHM PAREXE e Penge node parse and execut 182808-1 382 99:98:33 DLEKSVMGMASTERSCEDT SRCICHMPARSE.BLIG]” (3). 
| 

; 4 | 

; i § 2 IF (.VERB EQL 0) THEN VERB = .EDTSS$G_DFLT_VERB; 

; 5 5 4 tl 

; 4 

; 89 0 25 4 '4 

> 288 0 28 4 ! If the command is tabs adjust, then the [+i-] preceding the repeat count is 

; 289 tH 4 ! used to determine adjustment of the entities right or left. The globa 

; ay Bare ? direction (ADV or BALK) is not affected by this tab adjust direction. 

; 29 9% 4 

3; 2 Bae 5 IF (.VERB EQL VERB_K_TADJ) | 

> 294 64 4 THEN 

: 295 0865 2 BEGIN 

; 296 0866 TADJ_DIR = 1; 

s oor 0867 5 !+ 

; 298 0868 5 ! If the adjustment direction has explicitly been set by '-", then tab 

: 299 0869 ! adjust to the left. | 

2 Be 6 be 

; $08 +444 3 IF ((.EDTS$G_DIR EQL DIR_BACKWARD) AND (.DIR_SAME EQL 0)) THEN TADJ_DIR = -1; | 

; 304 0874 5 EDT$$G_DIR = .EDTS$G_DIR_MOD; 

: 305 0875 4% END; | 

; 306 0876 4 

; 307 0877 4 !+ | 

; 308 0878 4 ! This hack prevents the entities SEN and SR from being assumed 

: 309 0879 4 ! to be a SUBSTITUTE command. 

; 310 0880 4 !- 

; 311 0881 4 

; 12 0882 5 IF (.VERB EQL VERB_K_SUBS) 

s 2 Ht) 4 THEN 

3: 314 0884 4 

3: 315 Lt 0885 4 XIF SUPPORT_VT220 

; 316 0886 4 XTHEN 

: a2 0887 4 | 

; 318 0888 5 IF (.EDTS$B_CHAR_INFO CCHSRCHAR (.EDTS$$A_CMD_BUF), 0, 0, 2, 0] NEQ 0) 

; 319 0889 4 THEN 

: 351 y oasr gee | 

: 22 U 0892 4 IF (CCCCCHSRCHAR (.EDTSSA_CMD_BUF) GEQ 2C°A') AND (CHSRCHAR (.EDTSSA_CMD_BUF) LEQ %C°Z')) 

; $2 U Oa 2 5) ((CHSRCHAR (.EDTSSA_CAD_BUF) GEQ %C'a') AND (CHSRCHAR (.EDTSSA_CAD_BUF) LEQ %C‘z' 

3 5 U +4 4 THEN 

s § 38 4 il 

: 897 4 

3 8 98 BEGIN 

; 9 99 | 

; 330 t 0900 5 ZIF SUPPORT_WPS 

: 1 1 THEN 

: ¢ é VERB = .EDT$$G_DFLT_VERB; | 

; U 090 ZELSE 

3 U VERB = 0; 

: 5 905 IFI 

; 0 EDTSSA_CMD_BUF = CHSPLUS (.EDTSSA_CMD_BUF, -1); 

; «338 0908 4 END; 
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HMPARSE = change mode parse and execute 1b-se Sep 9-136 99: 96:33 VAX=11 BLi 
CHM_PAREXE = change mode parse and execut 14-Sep-1 DISKSVMSMA 


'¢ 
Check to see if it is truly a verb which uses an entity specification. 


If (.VERB LSS VERB_K_SEL) 

” BEGIN 

; And once again, look for the explicit direction. 
- DIR SAME = EDTSSCHK_DIR (); 


i Set the entity count to the default of 1, then see if there 
; _was @ count specified. 


ENTITY_COUNT = 
EXPLICTT OUNTITY. tount = EDTSSCHK_CNT (ENTITY_COUNT); 


Reg er eeert ENTITY_COUNT EQL 2) 
BEGIN 
Arron (oper (EDTS_NUMVALILL); 
END; 


1+ 
And try for a direction once again. 


e DIR_SAME = EDTSSCHK_DIR (); 
: Now get the entity. 


IF CHSPTR_GTR (.EDTSSA_CMD_END, .EDTSSA_CMD_BUF) 


IF (CHSRCHAR ( Metter CMD at Fe ""*) OR 
(CHSRCHAR (.EDTSSA_CMB_BuF) EQL '''*) oR’ 
| CEHBRCHAR “EDISSAT CMD BUF) EQL 0) 


BEGIN 

ENTITY = ENT_K_QUOTE; 

EDTSSA_CMD_ BOF ~s seo ED ESSA_CMD_BUF +1; 
SE 

EDTSSKEY_WORD (2, ENTITY) 


ELSE 
ENTITY = 0; 


'¢ 
‘ If entity was not found, something is wrong. 


IF (.ENTITY EQt 0) 
THEN 
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HMPARSE = change mode parse and execute 19-3007 138% 90:06:33 VAX-11 Bliss-32 v4. 
CHM_PAREXE = Change mode parse and execut 14-Sep-1984 12:22:41 DISKSVMSMASTER: CEDT 


'¢ 


i If verb was defaulted to move, assume it was wrong, otherwise 
} t must be the entity which is wrong. 


BEGIN 


IF (.VERB NEQ 0) THEN EDTSSMSG_BELL (EDTS_INVENT) ELSE EDTSS$MSG_BELL (EDTS$_INVSUBCOM); 


RETURN (0); 
END; 


+ 


' 
! If the command is tabs adjust, then process it specially. 

! The repeat count and (+ or =) directional indicator are used 
! to determine the adjustment and the entity count and direction 
' to select the text. 


IF (.VERB EQL VERB_K_TADJ) 
BEGIN 
IF (.EXPLICIT_REPEAT EQL 0) THEN REPT_COUNT = 1; 


‘4 
i TADJ_DIR 


= 1 to adjust cigne 
= -1 to adjust left 


EDT$$G_TADJ = .REPT_COUNT®.TADJ_DIR; 
EXPLICIT REPEAT = 0; 


'¢ 
! If there was a repeat count as well as an entity count, multiply 
' them out to get the actual number of entities, and only execute 
the command once. 
IF .EXPLICIT_REPEAT THEN ENTITY_COUNT = .REPT_COUNT®*.ENTITY_COUNT; 
REPT_COUNT = 1; 


'¢ 
: If entity is quoted, get the string. 


IF (.ENTITY EQL ENT_K_QUOTE) THEN EDTSSSCAN_SEASTR (); 
'¢ 
Get the buffer spec if command is cut or append. 


IF (.VERB GEQ VERB_K_CUT) THEN EDTSS$GET_BUF (); 


'¢ 
And execute it. 
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CoQoQooo°oo°oo 
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DIS 


BEGIN 

SUCCEED = EDTSSEXE_CHMCMD2 (.ENTITY, .ENTITY_COUNT, .VERB); 
IF (. SUCCEED NEQ 1) THEN RETURN (.SUCCEED); 
END; 


BEGIN 


i Handle the parsing of the ‘funny’ verbs, i.e. those which have 
variable length strings as a part. 


OPERAND = .EDTSSA_CMD_BUF ; 
seta a FROM VERB_K_SUBS TO VERB_K_CC OF 


CVERB_K_INSERT] : 
EDTSSSCAN_INSSTR (); 


CVERB_K_XLATE) : 

IF CHSPTR.NEG (.EDTSSA_CHD_BUF, .EDTSSA_CMD_END) 
TEDTSSSCAN_INSSTR () 
 eEDTSSG_SEA_LEN = 0; 


CVERB_K_SUBS] : 
EBTSSFND_SUBSTR (); 


CVERB.K CC : 
EDTS$S$CNV_UPC (.EDT$$A_CMD_BUF, 1); 
EDTSSA_CAD_BUF = CHSPCUS T.EDTS$ACMD_BUF, 1); 

CVERB_K_PASTE) : 

EDTSSGET_BUF (); 

COUTRANGE : 

TES; * 


Now, execute the command, and terminate the loop if it fails. 


IF EXECUTE 
THEN 


BEGIN 
SUCCEED = EDTSSEXE_CHMCMD1 (.VERB, .REPT_COUNT, .OPERAND, 
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v04- EDTSSCHM_PAREXE = change mode parse and execut 12: ~8ep-1984 DISKSVMSMASTER: CEDT.SRCJCHMPARSE .BLI;1 (3). 
; 19 Hi} 6 IF (.SUCCEED NEQ 1) THEN RETURN (.SUCCEED); 

: 51 1 1 END; 

3 ig 8 ‘ 

3 516 1084 4 END; 

3 2? 18 5 4 

: 18 1 § END; 

s 31 10 
>; 518 1088 IF .EDTS$G_EXI THEN RETURN (1); 
; 519 1089 

; 0 10 END; 

; 1 193) 

3 ; 1 35 RETURN (1); 

3; 3 109 END; ! of routine EDTSSCHM_PAREXE 


; nd execute 


| 
-TITLE EDTSCHMPARSE EDTSCHMPARSE - change mode parse a 
IDENT \v04-000\ 

| 


EXTRN EDTSSEXE ~CHMCMD? 
EXTRN EDTSSEXE-CHMCMD1 
EXTRN EDTSSMSG~ =BELL. EDTSS$CHK_CC 
EXTRN EDTSSGET_BUF, EDTSSCHK CNT 
EXTRN EDTSSCHK-DIR, EDTSSSCAN_ REASTR 
EXTRN EDTSSFND asuesih 
EXTRN EDTS$$SC SSTR 
EXTRN EDTSSKE YOORD: EDTSSP a. | 
EXTRN ED TSS CN NV re EDTSSG SEA 
EXTRN EDT$$G_DIR, EDT$$G_DIR_ nob. | 
EXTRN EDTS$SA_ BaD “END, eDTS$ $G- | 
EXTRN EDTS$$A_CMD-BUF, EDTSSA~ ALT BUF 
EXTRN EDT$$G-TADJ, TEBTSSG _DFCT_VERB 
EXTRN EDTS$$B_CHAR_INFO | 
EXTRN EDTS$SG, CC_DONE, EDTS_INVENT 
EXTRN EDTS _IAVSOBCOM, EDTS_NUAVALILL 
-PSECT _EDTSCODE.NOWRT, SHR, PIC,2 
OFFC 00000 -ENTRY OiNeati ee Save R2,R3,R4,R5,R6,R7,R8,-; 0683 | 
5B 000000006 00 9€ 00002 MOVAB Eptsse’b R11 : 
3A 000000006 09 cb 9009 HOVA EDTSSA. oD “BUF, R10 ; 
6A 000000006 09 pt 0018 1$: CPL Ngee ae EDTSS$A_CMD_BUF ; 0780 
0224 31 ith 3: Rw 9$ : | 
000000006 i 9 FB OO1F $: CALLS #0, EDTSSCHK_CC : 0783 
000000006 00 02! b0 a § MOVL fl, EDT$$G_CC_DONE : 0786 
50 6A 00 8 43: MOVL  EDTSSA 1- BUF, RO > 07964 | 
20 60 91 99 CMPB = (RO), ; 
4 12 000 BNEQ 5$ : 
6A 06 99 INCL EDTSSA_CMD_BUF ; 0795 | 
4 BRB $ ; 
50 6A DO 0003F 58 MOVL EDTS$$A_CMD_BUF, RO : 0801. 
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v04-000 EDTSSCHM_PAREXE = Phenge aode parse and execut 13-808 -1 3b 99:9 741 DLEKSVMGMASTERSCEDT SRCICHMPARSE BLING] 7 5 v04 
29 60 9 4 CMPB (RO), #41 : : 
1 4 BEQL 6-2 : ; 
oR 900000006 D 4 MOVL § EDT$$G_DIR_MOD, EDT$$G_DIR : 0807 | : 
00000006 D4 OO04E CLAL EDTSSA™ALT BUF + 0808 ; 
000000006 99 FB 4 CALLS 40, EDTSSCAK_DIR + 0812 | : 
D B MOVL RO, DIR_SAME : ; 
SE 8 8880), PT=coou Hg) 
000000006 99 1 FB 006¢ CALLS #1, EDTSSCHK_CNT : : 
dO 000 MOVL RO, EXPLICIT REPEAT : : 
02 D1 0006C CMPL - EXPLICIT_REPEAT, #2 + 0821 : 
0 \¢ O06F BNEQ $$ : | ; 
50 sag 0 0074 6$ BOVL EDTSSA CMD_BUF, RO ; 0832. 
28 60 55 0077 CMPB (RO), #40 ~ : : 
Se 0S ooore PeTL = REPT_COUNT : 0836 
07 12 0007 BNEQ r : é 
55 05 000 TSTL XPLICIT_REPEAT : F 
03 if 008 BNEQ : : 
6 01 00 00084 MOVL #1, REPT_COUNT : : 
04 AC DD 0087 7$: PUSHL EXECUTE ; 0838 : 
4 AE DD OOO8A PUSHL REPT_COUNT : : 
000000006 00 02 FB 0008D CALLS #2, EDTSSPARENT : : 
0196 31 00094 Bru 378 : : 
04 AE 9F 00097 8$: PUSHAB VERB : 0848 | : 
01 DD O009A PUSHL #1 ; : 
000000006 00 02 FB 0009 CALLS #2, EDTS$$KEY_WORD ; : 
04 AE DS OOOA TSTL VERB ; 0853 : 
08 12 0006 BNEQ $ ; : 
04 AE 000000006 00 00 000A8 MOVL § EDT$$G_DFLT_VERB, VERB : . 
08 04 AE D1 000B0 9$: CMPL VERB, #8 : 0863 : 
15 12 00084 BNEQ 11$ : 
56 01 vO 90086 MOVL #1, TADJ_DIR > 0866 
8 D5 00089 TSTL EDT$$G_DIR : 0872 
0 if 0008B BNEQ 10$ ; 
58 05 000BD TSTL § DIR_SAME ; 
03 12 0008 BNEQ 10$ ; 
56 01 cE 00C1 MNEGL #1, TADJ F 
6B 000000006 00 DO 000C4 10$:  MOVL €EDTSSG DIR_MOD, EDT$$G_DIR > 0874 
0c 04 AE 01 000CB 11$: CMPL VERB, i : 0882 
1A 13 OOCF BNEQ 12% : 
50 6A D0 00001 MOVL  EDTS$A_CMD_BUF, RO : 0888 
30 69 9A D4 MOVZBL (RO), RO : | 
03 00000000600 0 ? Oo7 118 EDIS$B_CHAR_INFOLROJ, #3 : 
04 AE 000000006 8 D O0E| MOVL EDT$$G_DFLT_VERB, VERB ; 9902 
6A D7 O00E9 DECL EDTSS$A CMD _BUF : 090 
5 04 AE DO 000EB 12$: MOVL VERB, R > 0914 
0B 3 DI OEF CMPL =saR3, #11 : 
9 Fe BLSS 13§ ; 
0003 31 F4 BRW 28$ F | 
000000006 99 99 F OF7 13$: CALLS 4&6, EDTSSCHK_DIR : 0920 
D FE MOVL RO, DIR_SAME ; 
08 AE 01 10 OVL #1, ENTITY COUNT ; 0925 
08 AE OF 0195 PUSHAB ENTITY COURT : 0926 | 
000000006 00 01 FB 0010 CALLS #1, EDTS$$SCHK_CNT ; | 
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TSSCHK_DIR 
R_SAM 


D 
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A_CMD_BUF, RO 
A-CMD"END, RO 


ENTITY 
$$A_CMD_BUF 


” 
#2, EDTSSKEY_WORD 
ENTITY 
ENTITY, R2 
$ 
208 
HEDTS_INVENT 
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AP ESTSSMSG_BELL 
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RS rT 
XPLICIT_REPEAT 
#1, REPT_COU 
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#0, EDTSSSCAN_SEASTR 
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#0, EDTS$S$GET_BUF 
EXECUTE, Sis7 
ENTITY_COUNT 

#3, EDTSSEXE_CHMCMD2 
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EDTSS$A_CMD_END 

EDTSSSCAN_INSSTR 
$$6_SEA_LEN 

EDTSSFND_SUBSTR 
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ED DTSSCNY UPC 
DiSsA_cM _BOF 
#0 EDISSG q _BUF 
EXECU 
EXPLICIT REPEAT 
OPERAND 
R PT_COUNT 
#4, EDTSSEXE_CHMCMD1 
RO, SUCCEED 
SUCCEED, wi 
38$ 
SUCCEED, RO 
EDTSSG_EXI, 39$ 
#1, RO 


RO 
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SL LSS/CHECK OCF SELD, IMLTIAL OPT ERLE) /NOTRACEBACK/L LS4. [53 1CHRPARSE/0B.J208J8 s CHMPARSE MSRC$: CHMPARSE .BL! /UPDATE=(ENHS$: CHMP 


Size: 

Run Time: 00:27. 

Elapsed Time: 00: Q. 

Lines/CPU Min: 41 
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v04-000 EDTSSCHM_PAREXE = change mode parse and execut 14-S + 1984 DISKSVMSMASTER: CEDT. SRC JCHMPARSE. BLI;1 (4) | V 
s S27 1096 1 END ! of module EDTSCHMPARSE ‘ 
: 3¢8 1097 1 ; 
9 1098 0 ELUDOM ° 
EDTSSCHM_PAREXE_NOOVERLAY_REF == : 
EDTSSTHM_PAREXE | ; 
: PSECT SUMMARY | : 
; Name Bytes Attributes . 
: _EDTSCODE 586 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) | ‘ 
: Library Statistics : 
Bree ae ee oes... Symbols -------- Pages Processing ‘ 
3 File Total Loaded Percent Mapped Time ° 
; _$255$DUA28:CEDT.SRCJEDT.L32;1 377 37 9 40 00:00.2 : 
> _$255$DUA28: CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 | ° 
: 7$255$DUA28:CEDT.SRCISUPPORTS.L $2; 1 2 2 100 5 00:00.1 | ; 
Koa! 
: COMMAND QUALIFIERS ; 
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